;;-----------vimascript
[@Castle_Manager]
{
#IF
IsCastleGuild [Sabuk]
IsGuildMaster
#SAY
ɳͿ˳ǹл᣺<$CS_SABUK_ATTACKGUILDS>\
ɳͿ˳ǽ⣺<$CS_SABUK_CASTLEGOLD>\
ɳͿ˳ǽ˰գ <$CS_SABUK_TODAYTAX>\
ɳͿ˳ǳ״̬ \
<$@DoorState1>\
<$@DoorState2>\
<$@DoorState3>\\
<趨ʾ/@setonlinenotice>\\
#IF
!IsOnCastleWar [SaBuk]
IsCastleGuild [Sabuk]
IsGuildMaster
#SAY
<ĩ֮/@lingquyingmeisha> 3000\
ʧ,.Ƿǳʱ޷\\

<ȡɳͿ˳˰/@@DrawTax> \\
#IF
!IsOnCastleWar [SaBuk]
IsCastleGuild [Sabuk]
#SAY
<ȡɳͿ˳ǵĶ˰/@lingqusx>\\



#IF
#ACT
MOV D0 0
loadvalue D0 "ϵͳ.INI"  ɳͿ˹ʱ

#IF
Esmall D0 %CURHOUR
#SAY
<鿴սճ̡/@view_warschedule>\
<빥ս/@Propse_CastleWar> \
;;лṱ5ˣ롣\\
<ڹս/@requestcastlewar> \\
{FCOLOR/10}<$NPCNAME>{FCOLOR/12}<жԻ/@TalkToQuest>\\
< /@exit>\\
#elsesay
ʱɳͿ˹!\
{FCOLOR/10}<$NPCNAME>{FCOLOR/12}<жԻ/@TalkToQuest>\\
<뿪/@exit>

[@@DrawTax]
#IF
!IsOnCastleWar [SaBuk]
#ACT
mov D1 %SABUKGOLD
mov D2 %INPUTNUM
goto @DrawTax
#ELSEACT
break
#ELSESAY
ڹУȡ\
< /@exit>

[@DrawTax]
#IF
large D2 %D1
or small d2 1
#SAY
Ľȡ \\
< /@exit>
#ELSESAY
ȡ<$OUTPUT(D2)> \\
< /@exit>

#ELSEACT
mov P9 1
makelog 62 9999 %D2 %NPCNAME
GetBackCastleGold [SABUK] %d2


[@Propse_CastleWar]
#IF
IsOnCastleWar [SaBuk]
#SAY
սڽУ빥ս \\
< /@main>
#ACT
break

#IF
!IsGuildMaster
#SAY
ֻл빥ս\\
< /@main>
#ACT
break

#IF
IsCastleGuild [Sabuk]
#SAY
л᲻ܽйǡ\\
< /@main>
#ACT
break

#IF
IsCastleGuild [TAOSUNG]
#SAY
л᲻ܽйǡ\\
< /@main>
#ACT
break

#IF
!checkitem ͷ 1
#SAY
Ҫͷ빥ս\\
< /@main>
#ACT
break


#IF
CanProposeCastleWar [Sabuk]
#ELSESAY
˹ս롣\\
< /@main>
#ELSEACT
break


#IF
dayofweek wed
#ACT
ProposeCastleWar [Sabuk]
take ͷ 1
#SAY
սϡ\\
{FCOLOR/10}58{FCOLOR/12}ս졣\\
ʱ빥ר÷\
< /@main>

#ELSESAY
ֻÿſ빥ǡ\\

< /@main>


[@requestcastlewar]

#SAY
ͷ񣬲빥ս\
빥սĻ{FCOLOR/10}38{FCOLOR/12}ս졣\\
< /@main>

[@view_warschedule]

#SAY
ɳͿ˳ǹսճ¡\
{FCOLOR/10}<$CS_SABUK_WARDATE>{FCOLOR/12} \\
ɳĮǹսճ¡\
{FCOLOR/10}<$CS_TAOSUNG_WARDATE>{FCOLOR/12} \\
< /@main>


[@lingquyingmeisha]
#IF
IsCastleGuild [Sabuk]
IsGuildMaster
checkgold 30000000
#ACT
take  30000000
give ĩ֮Уɳ
#SAY
ϲΪɳѿõӵ3ԣԽ.\\
ʧȥɳϵͳջظҲ޷.\
Զ䣬㶪Ȼ.\
ѵļƷ.\\
<ر/@exit>


[@DoorState1]
#IF

#SAY


#IF
CheckCastleDoor [SABUK] 1

#SAY
_

#ELSESAY
_(<û/@Make_door(1,)>)

#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 1

#SAY
_(</@Close_Door(1,)>)

#ELSESAY
_(<ر/@Open_Door(1,)>)

[@DoorState2]
#IF

#SAY


#IF
CheckCastleDoor [SABUK] 3

#SAY
_

#ELSESAY

_(<û/@Make_door(3,)>)
#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 3

#SAY
_(</@Close_Door(3,)>)

#ELSESAY
_(<ر/@Open_Door(3,)>)

[@DoorState3]
#IF

#SAY
Ҳ

#IF
CheckCastleDoor [SABUK] 4

#SAY
_

#ELSESAY
_(<û/@make_door(4,Ҳ)>)
#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 4

#SAY
_(</@Close_Door(4,Ҳ)>)

#ELSESAY
_(<ر/@Open_Door(4,Ҳ)>)


[@Make_door()]
#IF
#ACT
Mov D0 %ARG(1)
Mov A0 %ARG(2)

#IF
!IsOnCastleWar Sabuk

#SAY
ŵķ50ҡ \\
֧50</@Make_door_comfirm><$OUTPUT(A0)>š \


#ELSESAY
սʱš \\
< /@exit>

[@Make_door_comfirm]
#IF
!checkgold 500000

#SAY
Ǯš\\
< /@main>
#ACT
break

#IF
!CheckCastleDoor [SABUK] %D0
#ACT
take  500000
MakeCastleDoor [SABUK] %D0

#SAY
ϡ\\
< /@main>

#ELSESAY
ǶѾгˡ\\
< /@main>


[@Open_door()]
#IF
#ACT
Mov D0 %ARG(1)
Mov A0 %ARG(2)

#IF
Equal D0 1
#ACT
mov D1 234
mov D2 151

#IF
Equal D0 3
#ACT
mov D1 169
mov D2 151

#IF
Equal D0 4
#ACT
mov D1 233
mov D2 87

#IF
CheckCastleDoor [SABUK] %D0
!CheckCastleDoorOpen [SABUK] %D0
#ACT
Formatstr "ɳͿ˳%s" %D0
mov A8 %A9
Formatstr "3,%s,%s,50" %D1 %D2
SENDCMD %A9 %A8 OPEN

#SAY
ɳͿ˳<$OUTPUT(A0)>ˡ\\
< /@main>

#ELSESAY
ûгŻųš \\
< /@main>

[@Close_door()]
#IF
#ACT
Mov D0 %ARG(1)
Mov A0 %ARG(2)

#IF
Equal D0 1
#ACT
mov D1 234
mov D2 151

#IF
Equal D0 3
#ACT
mov D1 169
mov D2 151

#IF
Equal D0 4
#ACT
mov D1 233
mov D2 87

#IF
CheckCastleDoor [SABUK] %D0
CheckCastleDoorOpen [SABUK] %D0
#ACT
Formatstr "ɳͿ˳%s" %D0
mov A8 %A9
Formatstr "3,%s,%s,50" %D1 %D2
SENDCMD %A9 %A8 CLOSE

#SAY
رɳͿ˳ǳš\\
< /@main>

#ELSESAY
ûгŻŹرš\\
< /@main>

[@lingqusx]
#CALL [Vimascript\.txt] @˰

[@setonlinenotice]
#IF
#SAY
<趨ʾ/@setonlineon>\
<趨ʾر/@setonlineoff>\


[@setonlineon]
#ACT
set [598] 0

[@setonlineoff]
#ACT
set [598] 1

}
;;-----------vimascript